home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / QuickTime / Programming Stuff / Documentation / develop articles / develop Issue 12 / Time Bases / TimeBaseSimple / TimeBaseSimple.p < prev    next >
Encoding:
Text File  |  1992-10-16  |  6.0 KB  |  249 lines  |  [TEXT/MPS ]
  1. {
  2.  
  3. }
  4.  
  5. PROGRAM TimeBaseSimple;
  6. { Shows basics about time bases. }
  7.  
  8. USES
  9.     MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, Traps, GestaltEqu, 
  10.     Movies, QuickTimeComponents, Strings;
  11.     
  12. CONST    rWindID = 128;
  13.         rRCTID = 128;
  14.         lastControl = 133;
  15.         arrowsID    = 133;
  16.         rectsCount = 14;
  17.         
  18. TYPE    BooleanPtr =     ^Boolean;
  19.  
  20.         TBState        =     RECORD
  21.                             tBase:        TimeBase;
  22.                             flags:        LONGINT;
  23.                             moovScale:    TimeScale;
  24.                             rate:        Fixed;
  25.                             prefRate:    Fixed;
  26.                             startTime:     TimeRecord;
  27.                             stopTime:     TimeRecord;
  28.                             zeroTime:    TimeRecord;
  29.                             currTime:    TimeRecord;
  30.                             duration:    TimeValue;
  31.                             clockName:    Str255;
  32.                         END;
  33.                         
  34.         RectsRecHandle = ^RectsRecPtr;
  35.         
  36.         RectsRecPtr = ^RectsRec;
  37.                         
  38.         RectsRec    =    RECORD
  39.                             rectCount: Integer;
  40.                             rects:        ARRAY [0..rectsCount] OF Rect;
  41.                           END;
  42.  
  43.  
  44. VAR        gMCPlay:        MovieController;
  45.         gWind:            WindowPtr;
  46.         gMoov:            Movie;
  47.         gSystemVersion:    Integer;
  48.         gDoneFlag:        Boolean;
  49.         
  50.         gErr:            OSErr;
  51.         gResult:        Boolean;
  52.         gEventRec:        EventRecord;
  53.         gMoovBox:        Rect;
  54.         
  55.         gLooping:        Boolean;
  56.         gShuttle:        ControlHandle;
  57.         gTBState:        TBState;
  58.         tr:                TimeRecord;
  59.         r:                 Rect;
  60.         gArrows:        PicHandle;
  61.         
  62. {$I TimeBaseSimpleAux.p} { Includes all auxiliary routines. }
  63.  
  64.  
  65. FUNCTION GetMovie: Movie;
  66. { 
  67.  
  68.     purpose         promp the user to select a file and then get a movie out of it
  69. }
  70.  
  71. VAR        reply:            StandardFileReply;
  72.         where:            Point;
  73.         localMoov:        Movie;
  74.         err:            OSErr;
  75.         movieResFile, 
  76.         resID:             Integer;
  77.         wasChanged:        Boolean;
  78.         moovResName:    Str255;
  79.         
  80. BEGIN
  81.     err := fnfErr;            { This is as good an error as any other }
  82.     IF DisplayGetFile('Please select movie file:',reply) THEN
  83.       BEGIN
  84.         err := OpenMovieFile(reply.sfFile, movieResFile, fsRdPerm);
  85.         IF  err = noErr THEN        
  86.           resID := 0;            { First 'moov' found }
  87.           err := NewMovieFromFile( localMoov, movieResFile, resID, moovResName, newMovieActive, wasChanged);
  88.           IF CloseMovieFile(movieResFile) <> noErr THEN
  89.             ErrorControl('Could not close the file');
  90.       END;
  91.     IF err = noErr THEN
  92.       GetMovie := localMoov
  93.     ELSE
  94.       GetMovie := nil;
  95. END;
  96.  
  97.  
  98. PROCEDURE SetUpControls(wind: WindowPtr);
  99. VAR     c:    ControlHandle;
  100.  
  101. BEGIN
  102.     gShuttle := GetNewControl(rWindID, gWind);
  103.     c := GetNewControl(rWindID+1, gWind);
  104.     c := GetNewControl(rWindID+2, gWind);
  105.     c := GetNewControl(rWindID+3, gWind);
  106.     c := GetNewControl(rWindID+4, gWind);
  107.     c := GetNewControl(rWindID+5, gWind);
  108. END;
  109.  
  110. FUNCTION SetUpMovie(moov: Movie; wind: WindowPtr; VAR mcPlay: MovieController): OSErr;
  111. { 
  112.  
  113.     purpose         given a window and a movie this routine sizes the
  114.                     window to fit the movie, gets the movie player by
  115.                     calling NewMovieController.
  116. }
  117.  
  118. VAR
  119.         err:             OSErr;
  120.         moovBox,
  121.         controllerBox:     Rect;
  122.         m: Movie;
  123.         
  124. BEGIN
  125.  
  126.     GetMovieBox(moov, moovBox);
  127.  
  128.     IF (((moovBox.right - moovBox.left) <= (gMoovBox.right - gMoovBox.left))
  129.       AND ((moovBox.bottom - moovBox.top) <= (gMoovBox.bottom - gMoovBox.top))) THEN
  130.       BEGIN
  131.         OffsetRect(moovBox, -(moovBox.left+gMoovBox.left), -(moovBox.top+gMoovBox.top));
  132.         SetMovieBox(moov, moovBox);
  133.       END
  134.     ELSE
  135.       BEGIN
  136.         SetMovieBox(moov, gMoovBox);
  137.       END;
  138.  
  139.     mcPlay := NewMovieController( moov, gMoovBox, mcTopLeftMovie);
  140.  
  141.     IF mcPlay = NIL THEN        { Could not get controller pass back some error }
  142.       BEGIN
  143.         err := internalQuickTimeError; { a.k.a. whatever error message             }
  144.         ErrorControl('Could not get controller for movie with MCNewMovieController');
  145.       END;
  146.       
  147.     err := MCEnableEditing(mcPlay, TRUE); 
  148.     err := MCDoAction(mcPlay, mcActionSetPlaySelection, Ptr(1));
  149.  
  150.     SetUpMovie := err;
  151. END;
  152.  
  153. (* There are some parameters that change on the fly and we need to
  154.    check them up every time we go through the event loop. The parameters
  155.    are:
  156.        shuttle position - shuttle need to rotate with the movie
  157.     rate - rate changes when movie is looping
  158.     duration - when a selection is made duration changes when playing.
  159.                note that while not playing the duration is set to the
  160.                whole movie to allow new selection
  161. *)
  162. PROCEDURE UpdateParams;
  163. VAR        startTimeValue,
  164.         stopTimeValue:    TimeValue;
  165.         duration: LONGINT;
  166.         aFix: Fixed;
  167.         r: Rect;
  168.         
  169. BEGIN
  170.     CallSetCtlValueNoProc(gShuttle, GetTimeBaseTime(gTBState.tBase, gTBState.moovScale, tr) DIV 10);
  171.     aFix := GetMovieRate(gMoov);
  172.     IF aFix <> gTBState.rate THEN
  173.       BEGIN
  174.         GetIndRect(rRCTID, 5, r);
  175.         InvalRect(r);
  176.         gTBState.rate := aFix;
  177.       END;
  178.     startTimeValue := GetTimeBaseStartTime(gTBState.tBase, gTBState.moovScale, gTBState.startTime);
  179.     stopTimeValue := GetTimeBaseStopTime(gTBState.tBase, gTBState.moovScale, gTBState.stopTime);
  180.     duration := stopTimeValue - startTimeValue;
  181.     IF duration <> gTBState.duration THEN
  182.       BEGIN
  183.         GetIndRect(rRCTID, 1, r);
  184.         InvalRect(r);
  185.         gTBState.duration := duration;
  186.         
  187.         GetIndRect(rRCTID, 10, r);
  188.         InvalRect(r);
  189.  
  190.         GetIndRect(rRCTID, 12, r);
  191.         InvalRect(r);
  192.       END;
  193.  
  194. END;
  195.  
  196. BEGIN (* MCSample *)
  197.  
  198.     IF InitSystem <> noErr THEN            { Initialize all managers             }
  199.       BEGIN
  200.         ErrorControl('Initialization failed');
  201.         Exit(PROGRAM);
  202.       END;
  203.  
  204.     gWind := GetNewCWindow(rWindID,NIL, WindowPtr(-1));
  205.     
  206.     SetUpControls(gWind); 
  207.     
  208.     SetPort(gWind);            { Make our window the current port    }
  209.     
  210.     REPEAT
  211.       BEGIN
  212.         InitVars;
  213.         gMoov := GetMovie;        { ask user to select a movie file     }
  214.         
  215.         IF gMoov = nil THEN    
  216.           BEGIN
  217.             { ErrorControl('Could not get the movie!;g'); }
  218.             LEAVE
  219.           END
  220.         ELSE            { if we have a movie then continue     }
  221.           BEGIN
  222.             InitControls(gMoov, gWind);
  223.             InvalRect(gWind^.portRect);
  224.             gErr := SetUpMovie(gMoov,gWind,gMCPlay);
  225.             IF gErr <> noErr THEN 
  226.               ErrorControl('Error at SetUpMovie')
  227.             ELSE
  228.               BEGIN
  229.                 WHILE NOT gDoneFlag DO
  230.                   BEGIN
  231.                     gResult := GetNextEvent(everyEvent, gEventRec);
  232.     (*                gResult := WaitNextEvent(everyEvent, gEventRec, 30, nil);                    *)
  233.     
  234.                     IF ( MCIsPlayerEvent(gMCPlay, gEventRec) = 0 ) THEN 
  235.                       BEGIN
  236.                         UpdateParams;                        { check for changes                 }
  237.                         IF gResult THEN                        { Player didn't handle the event }
  238.                           HandleEvent(gEventRec);             { Cliks in go away terminate app }
  239.                       END
  240.                   END;
  241.                 gErr := CloseComponent(gMCPlay);
  242.               END;
  243.             DisposeMovie(gMoov);
  244.           END
  245.       END
  246.     UNTIL FALSE;
  247.     DisposeWindow(gWind);
  248.     ExitMovies;
  249. END.